home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / Sharewarebibliothek / Anwendungen / Musik / MIDI Pack'en 1.1.2 / Sample Scripts / 11 Set Comment Text - 3 < prev    next >
Text File  |  1994-02-02  |  225b  |  9 lines
  1. tell application "MIDI Pack'en"
  2.     activate -- if needed
  3.     set x to "This patch was made by T.Suzuki"
  4.     repeat while (Text 1 of Window -1 is not x)
  5.         set Index of Window -1 to 1
  6.         set Text 1 of Window 1 to x
  7.     end repeat
  8. end tell
  9.